home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d12 / v9n08.arc / TPFST-AT.BAS < prev    next >
BASIC Source File  |  1990-03-30  |  3KB  |  47 lines
  1. 100 REM - BASIC PROGRAM TO CREATE TPFST-AT.COM
  2. 110 CLS:PRINT "Creating TPFST-AT.COM": OPEN "TPFST-AT.COM" AS #1 LEN = 1
  3. 120 FIELD #1, 1 AS A$: CHECKSUM#=0
  4. 130 FOR I = 1 TO    28
  5. 140  LINESUM#=0: LOCATE 2,3: PRINT "Countdown: "    28 - I ;
  6. 150  FOR J = 1 TO  16: READ BYTE$: BYTE = VAL("&H" + BYTE$)
  7. 160   CHECKSUM# = CHECKSUM# + BYTE: LINESUM# = LINESUM# + BYTE
  8. 170   IF (BYTE < 256) THEN LSET A$=CHR$(BYTE): PUT #1
  9. 180  NEXT J
  10. 190  READ LINETOT$: LINECHECK# = VAL("&H"+LINETOT$)
  11. 200  IF LINECHECK# = LINESUM# THEN GOTO 220
  12. 210  LOCATE 4,2: PRINT "Error in line #"  ;  260 +  10 * I: GOTO 260
  13. 220 NEXT I
  14. 230 CLOSE: READ FILETOT$ : FILECHECK# = VAL(FILETOT$)
  15. 240 IF CHECKSUM# <> FILECHECK# THEN GOTO 260
  16. 250 PRINT: PRINT "TPFST-AT.COM created successfully": SYSTEM
  17. 260 PRINT: PRINT "TPFST-AT.COM is not valid!": END
  18. 270 DATA E9, 2C,  1,  D, 20, 20, 20,  D,  A, 54, 50, 46, 53, 54, 2D, 41,   399
  19. 280 DATA 54, 20, 31, 2E, 30, 20, 28, 63, 29, 20, 31, 39, 38, 39, 20, 5A,   34C
  20. 290 DATA 69, 66, 66, 20, 43, 6F, 6D, 6D, 75, 6E, 69, 63, 61, 74, 69, 6F,   63D
  21. 300 DATA 6E, 73, 20, 43, 6F, 2E,  D,  A, 50, 43, 20, 4D, 61, 67, 61, 7A,   49B
  22. 310 DATA 69, 6E, 65, 20, FE, 20, 4D, 69, 63, 68, 61, 65, 6C, 20, 4A, 2E,   5C5
  23. 320 DATA 20, 4D, 65, 66, 66, 6F, 72, 64,  D,  A,  A, 24, 53, 79, 6E, 74,   4D6
  24. 330 DATA 61, 78, 3A, 20, 20, 54, 50, 46, 53, 54, 2D, 41, 54, 20, 5B, 6D,   48E
  25. 340 DATA 2C, 6E, 20, 7C, 20, 4E, 5D,  D,  A, 6D, 20, 3D, 20, 74, 79, 70,   45F
  26. 350 DATA 65, 6D, 61, 74, 69, 63, 20, 72, 61, 74, 65, 20, 28, 30, 20, 2D,   504
  27. 360 DATA 20, 33, 31, 29, 3B, 20, 6C, 61, 72, 67, 65, 72, 20, 6D, 20, 3D,   46F
  28. 370 DATA 20, 66, 61, 73, 74, 65, 72, 20, 72, 61, 74, 65,  D,  A, 6E, 20,   516
  29. 380 DATA 3D, 20, 69, 6E, 69, 74, 69, 61, 6C, 20, 64, 65, 6C, 61, 79, 20,   596
  30. 390 DATA 20, 28, 30, 20, 2D, 20, 33, 29, 3B, 20, 20, 6C, 61, 72, 67, 65,   3C7
  31. 400 DATA 72, 20, 6E, 20, 3D, 20, 6C, 6F, 6E, 67, 65, 72, 20, 64, 65, 6C,   559
  32. 410 DATA 61, 79,  D,  A, 4E, 3D, 6E, 6F, 72, 6D, 61, 6C, 3A, 20, 6D, 20,   4EC
  33. 420 DATA 3D, 20, 32, 30, 3B, 20, 6E, 20, 3D, 20, 31,  D,  A, 64, 65, 66,   37C
  34. 430 DATA 61, 75, 6C, 74, 3A, 20, 20, 6D, 20, 3D, 20, 32, 37, 3B, 20, 6E,   44C
  35. 440 DATA 20, 3D, 20, 30,  D,  A,  A, 24, 1A, 49, 6E, 76, 61, 6C, 69, 64,   3D3
  36. 450 DATA 20, 70, 61, 72, 61, 6D, 65, 74, 65, 72,  D,  A,  A,  7, 24, FC,   529
  37. 460 DATA BA,  3,  1, E8, 78,  0, BE, 81,  0, AC, 3C,  D, 74,  4, 3C, 20,   526
  38. 470 DATA 76, F7, 4E, B3,  B, B7,  1, 8A,  4, 24, 5F, 3C, 4E, 74, 21, E8,   649
  39. 480 DATA 3B,  0, B3, 1B, 74,  7, 8A, D8, 80, FB, 1F, 77, 1C, F6, DB, 80,   764
  40. 490 DATA C3, 1F, E8, 28,  0, B7,  0, 74,  7, 8A, F8, 80, FF,  3, 77,  9,   6A8
  41. 500 DATA B8,  5,  3, CD, 16, 32, C0, EB,  8, BA, 19,  2, E8, 2F,  0, B0,   624
  42. 510 DATA  1, 50, BA, 5C,  1, E8, 26,  0, 58, B4, 4C, CD, 21, 53, 33, DB,   61D
  43. 520 DATA 33, ED, AC, 2C, 30, 72, 10, 3C,  9, 77,  C, 98, 93, B9,  A,  0,   560
  44. 530 DATA F7, E1,  3, D8, 45, EB, EB, 4E, 8B, C3,  B, ED, 5B, C3, B4,  9,   93D
  45. 540 DATA CD, 21, C3,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,   1B1
  46. 550 DATA 36414
  47.